home *** CD-ROM | disk | FTP | other *** search
- /strtp{dup length dup -8 bitshift ct2 ctz 3 -1 roll put 255 and
- ct2 ctz 1 add 3 -1 roll put ct2 copy pop setclp}B
- /endp{ct2 ctz ct0 putinterval setclp}B
- /kp{ct1 0 2 index length 2 index 99 2 index put getinterval copy cvx exec
- mtx1 currentmatrix pop cps np mif}B
- /ptc{cmykprsnt{currentcmykcolor 4}{currentrgbcolor 3}ifelse
- -1 1{exch 255 mul cvi bkc 3 1 roll put}for}B
- /gtc{1 1 cmykprsnt{4}{3}ifelse{bkc exch get 255. div}for
- cmykprsnt{setcmykcolor}{R}ifelse}B
- /crntc{regsh 0 lt custprsnt not and
- {cmykprsnt{currentcmykcolor}{currentgray}ifelse}if
- custar aload pop pop custsh custprsnt regsh
- }def
- /setc{/regsh X/custprsnt X/custsh X custnamstr 0 1 index 79 get getinterval custar astore pop
- regsh 0 ge{regsh setseparationgray}{custprsnt{custar custsh setcustomcolor}
- {cmykprsnt{setcmykcolor}{H}ifelse}ifelse}ifelse
- }def
- /shp{dup 1 gt/@1 X vrbar exch get currentflat{@1{g}if{1 index exec}stopped @1{G}if
- {currentflat cvi 1 bitshift dup 200 gt{pop exit}{setflat}ifelse}{@1{np}if exit}ifelse}loop
- setflat pop}B
- /h{currentpoint exch pop m}B
- /crs{g o np m l n np m l n G}B
-